Top 10k strings from Turtle Graphics (19xx)(-).bas in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX-81 & Sinclair QL - Various / Sinclair QL - Various (TOSEC-v2006-04-09) /

Back to the directory listing

   1 430 FILL 0:PAPER 2:CLS
   1 420 CLS:WINDOW#1,448,200,32,16
   1 410 END REPeat logo
   1 400  IF INKEY$<>"" THEN EXIT logo
   1 390  END FOR k
   1 380   REMark BEEP 3200,k/note
   1 370   TURN terrapin
   1 360   MOVE k/.7
   1 350  FOR k=1 TO turtle
   1 340  terrapin=RND(25 TO 340)
   1 330  turtle=RND(3 TO 70)
   1 320  INK RND(1 TO 7)
   1 31990 STOP
   1 310  POINT 80,50
   1 300  note=RND
   1 290  IF RND>.68 THEN CLS
   1 280 REPeat logo
   1 270 PENDOWN
   1 260 CLS:RANDOMISE
   1 230 PRINT"To exit press again"
   1 220 AT 13,10:INK 1
   1 210 PRINT"To start press any key"
   1 200 AT 11,10:INK 2
   1 190 PRINT"T u r t l e d e m o"
   1 180 AT 9,10:INK 4
   1 170 CLS:CLS#0
   1 150 PAPER 0
   1 140 WINDOW 513,256,0,0
   1 130 SCALE 100,0,0
   1 120 FILL 0
   1 110 MODE 8
   1 100 REMark turtle graphics